home *** CD-ROM | disk | FTP | other *** search
- # OutToLunch
-
- set a "Making trouble"
- set b "Staring at the ceiling"
- set c "Deliberately wasting time"
- set d "Attempting to derive principles of dependency graph theory"
- set e "Wishing I were a Perl script"
- set f "Looking for my MPW manual"
- set g "Going to the Bahamas for a moment"
- set h "Automatically registering your copy of A-line"
- set i "Looking for Waldo"
- set j "Reflecting on my past indiscretions"
- set k "A-line requires Visual Basic for MPW. Downloading now"
- set l "Out to lunch"
- set m "Holding for Microsoft tech support"
- set n "Rebuilding the desktop"
- set o "Converting your savings to Apple stock"
- set p "Connecting to cgi.a-line.com for instructions"
- set q "Turning on processor cycling to reduce power consumption"
- set r "Clearing space on your hard drive"
- set s "Waiting for just the right moment"
- set t "Downloading new artwork"
- set u "Making your Macintosh happy"
-
- set COUNT 21
-
- set COOKIE "'{a}'∂n'{b}'∂n'{c}'∂n'{d}'∂n'{e}'∂n'{f}'∂n'{g}'∂n'{h}'∂n'{i}'∂n'{j}'∂n∂
- '{k}'∂n'{l}'∂n'{m}'∂n'{n}'∂n'{o}'∂n'{p}'∂n'{q}'∂n'{r}'∂n'{s}'∂n'{t}'∂n'{u}'"
-
- If "{1}" == "--express" or "{1}" == "--fastfood"
- Shift
- End
-
- If "{1}" == "--pick"
- Set PICK "{2}"
- Shift; Shift
- Else
- Set PICK `Evaluate ∂`TickCount∂` % {COUNT} + 1`
- End
-
- Echo `Echo "{COOKIE}" | StreamEdit -e "!{PICK} Delete"`... (please be patient)
-
- Exit
- # The end.
-
- Set COUNT 0
- For TUNE in {COOKIE}
- if {COUNT} == {PICK}
- echo "{TUNE}"... (please be patient)
- break
- end
- set COUNT `evaluate {COUNT} + 1`
- end
-